home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 55
/
055.d81
/
loadstar forms
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
44 lines
5 ifa=.thena=1:load"subscribe form",8,1
10 poke53280,7:poke53281,7
20 print"[147] [204][207][193][196][211][212][193][210] [198][207][210][205][211] [208][210][201][206][212][197][210]"
30 print" 1) [208]rint [211]ubmission [198]orm"
40 print" 2) [208]rint [211]ubscription [198]orm"
50 print" 3) [210]eturn to [204]oadstar":poke198,.
60 geta$:ifa$<"1"ora$>"3"then60
70 ifa$="2"then2000
80 ifa$="3"then60000
90 :
1000 gosub3000:ifnot(ok)then10
1010 gosub4000:if(ab)then10
1020 open4,4,7:open3,8,3,"submission form":print#4," ";
1030 fori=.to1:get#3,a$:i=st
1040 ifa$=chr$(13)thenprint#4:print#4," ";:goto1060
1050 print#4,a$;
1060 next:close3
1070 fora=1to7:print#4:next
1080 close4:goto10
1090 :
2000 gosub3000:ifnot(ok)then10
2010 gosub4000:if(ab)then10
2020 open4,4,7:sys51137,32768:print#4
2030 close4:goto10
2040 :
3000 open15,4,15:close15
3010 ifst=.thenok=-1:return
3020 ok=.
3030 print" [197]rror: [208]rinter [206]ot [210]eady!"
3040 fora=1to2000:next:return
3050 :
4000 print" [211]et printer to top of paper."
4010 print" [208]ress [211][208][193][195][197] to continue or [193] to [193][194][207][210][212]."
4020 a=peek(203):ifa<>60anda<>10then4020
4030 ab=.:ifa=10thenab=-1
4040 return
4050 :
60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
60010 ifer<>63thenend
60020 print"[147]"
60030 print"[158]load"chr$(34)"hello connect"chr$(34)",8"
60040 print"run"
60050 poke631,13:poke632,13:poke198,2